User's Choice Windows CD/User's Choice Windows CD (CMS Software)(1993).iso/misc1/ami301c.zip/FLWCOPY.SM$/FLWCOPY.SMM

INI File | 1993-05-13 | 35KB | 1,832 lines

[ver]
    4
[sty]
    _MACRO.STY
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    Apple LaserWriter Plus
[port]
    LPT1:
[lang]
    1
[desc]
    Collect and Copy for Freelance for Windows.




    737357880
    23
    731818190
    695
    8
    0
    0
    0
    0






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Body Text
    2
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        Times New Roman
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Function
    4
    [fnt]
        Times New Roman
        240
        0
        16385
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Outline2
    5
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline3
    6
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        3

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline3
    0
    0
[tag]
    Outline4
    7
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        4

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline4
    0
    0
[l1]
    0
[pg]
    8
    52 0 58 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    102 0 24 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    155 0 6 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    208 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    261 0 11 0 1 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    309 0 17 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    361 0 7 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    410 0 15 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#284,9360>'declares & defines

@Outline2@<:#240,9360>'string defines, to be localized

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define MyAppName    "Ami Pro Collect & Copy"

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define apptitle        "Freelance Graphics"

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_cantlaunchapp    "Unable to launch Freelance for Windows."

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_cantfindapp        "Unable to find Freelance for Windows."<:f>

@Outline3@<:f200,2Times New Roman,255,0,0>define err_nofilesopen        "You must have a presentation
<:f><:f200,2Times New Roman,255,0,0>open to use Collect and Copy.<:f><:f200,2Times New Roman,255,0,0>"

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_appmustberunning    "Freelance must be running to
<:f><:f200,2Times New Roman,255,0,0>use Collect and Copy<:f><:f200,2Times New Roman,255,0,0>.<:f><:f200,2Times New Roman,255,0,0>"<:f>

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_selectonlyoneslide<:f><:f200,2Times New Roman,255,0,0>    "Please select a single slide<:f><:f200,2Times New Roman,255,0,0>."

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_cantfindmenu    "Cannot locate the correct menu."

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_cantfindmenubar    "Cannot locate the menu bar."

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define FLW_WINDOWMENU    "&Window"

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define FLW_TILEITEM        "&Tile"<:f>

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>defin<:f200,2Times New Roman,255,0,0>e err_maybenotinslidesorter<:f><:f200,2Times New Roman,255,0,0>    "Cannot paste from this view."<:f>

@Outline2@<:#240,9360>'string defines, not to be localized

@Outline3@<:#240,9360>define appname    "FLW"

@Outline3@<:#240,9360>define appmodule    "FLWMAIN"

@Outline3@<:#240,9360>define appclass    "flwapp"

@Outline3@<:#240,9360>define pasteformat    "Windows Metafile"

@Outline3@<:#240,9360>define LotusIniFile    "lotus.ini"

@Outline3@<:#240,9360>define LotusAppSection    "Lotus Applications"

@Outline3@<:#240,9360>define ERR_DIECLEANLY    -2

@Outline3@<:#240,9360>define FILE_ALREADYOPEN    1

@Outline3@<:#240,9360>define FILE_NOTOPEN        -1

@Outline3@<:#240,9360>define salesmsgsmm    lotuspal.smm!salesmsg

@Outline3@<:#240,9360>define helpfile        "HELPPACK.HLP"

@Outline3@<:#240,9360>define helpnum    110

@Outline3@<:#240,9360>define HELP_CONTEXT    0x0001

@Outline3@<:#240,9360>define VK_F1            112

@Outline2@<:#240,9360>'private functions

@Outline3@<:#240,9360>declare box2(hdlg, id, val)

@Outline3@<:#240,9360>declare done()

@Outline3@<:#240,9360>declare onmenu(menu, item, casc)

@Outline3@<:#240,9360>declare freeglobals()

@Outline3@<:#240,9360>declare GetChildHandle(parentclass, childclass);

@Outline3@<:#240,9360>declare h_LoadLotusApp(Name, Module);

@Outline3@<:#240,9360>declare h_RunningLotusApp(Name, Module);

@Outline3@<:#240,9360>declare hideami(rect)

@Outline3@<:#240,9360>declare insertdata(hdlg, id, val)

@Outline3@<:#240,9360>define IsOKToRun(menuname)    GetInfo(217, 24, %1);

@Outline3@<:#240,9360>define MsgBox(msgtext)    Message(%1, myappname)

@Outline3@<:#240,9360>declare modframe()

@Outline3@<:#240,9360>declare newnow()

@Outline3@<:#240,9360>declare openfile()

@Outline3@<:#240,9360>declare setpagelayout()

@Outline3@<:#240,9360>declare showami(rect)

@Outline3@<:#240,9360>declare winproc(hdlg, id, val)

@Outline3@<:#240,9360>declare box2(hdlg, id, val)

@Outline3@<:#480,9360>declare MyPostMessage(hwnd, msg, wparam, lparam)    DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

@Outline2@<:#240,9360>'api call defines

@Outline3@<:#240,9360>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)

@Outline3@<:#240,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)

@Outline3@<:#240,9360>Define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)

@Outline3@<:#240,9360>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")

@Outline3@<:#240,9360>Define Getfocus() DllCall("user,GetFocus,H")

@Outline3@<:#240,9360>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)

@Outline3@<:#240,9360>Define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)

@Outline3@<:#240,9360>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)

@Outline3@<:#240,9360>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)

@Outline3@<:#240,9360>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)

@Outline3@<:#240,9360>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

@Outline3@<:#480,9360>define PeekMessage(lpmsg, hwnd, uFilterFirst, uFilterLast, fuRemove)    DllCall("User,PostMessage,ACHHHH",%1,%2,%3,%4, %5)

@Outline3@<:#240,9360>Define SendMessage(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)

@Outline3@<:#480,9360>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)

@Outline3@<:#240,9360>Define SetFocus() DllCall("user,SetFocus,HH",%1)

@Outline3@<:#240,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)

@Outline3@<:#480,9360>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)

@Outline3@<:#240,9360>define SetCursor(hwnd)        DllCall("user,SetCursor,HH",%1)

@Outline3@<:#240,9360>define LoadCursor(hwnd, lpcursor)        DllCall("user,LoadCursor,HHC",%1, %2)

@Outline3@<:#240,9360>define    GetMenu(HWND)    DllCall("user,GetMenu,HH", %1)

@Outline3@<:#480,9360>define    GetMenuString(HMENU, WORD, LPSTR, int, WORD)    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)

@Outline3@<:#240,9360>define    GetSubMenu(HMENU, int)    DllCall("user,GetSubMenu,HHH", %1, %2)

@Outline3@<:#240,9360>define    GetMenuItemID(HMENU, int)    DllCall("user,GetMenuItemID,LHH", %1, %2)

@Outline3@<:#240,9360>define    GetMenuItemCount(HMENU)    DllCall("user,GetMenuItemCount,HH", %1)

@Outline3@<:#240,9360>

@Outline3@<:#240,9360>define WinHelp(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)

@Outline2@<:#240,9360>'menu pick defines

@Outline3@<:#240,9360>define FLW_COPY        142

@Outline3@<:#240,9360>define FLW_CURVEDTEXT    307

@Outline3@<:#240,9360>define FLW_CURRENTPAGE    228

@Outline3@<:#240,9360>define FLW_EDITCLEAR    145

@Outline3@<:#240,9360>define FLW_INBW        269

@Outline3@<:#240,9360>define FLW_INCOLOR        270

@Outline3@<:#240,9360>define FLW_NEW        61

@Outline3@<:#240,9360>define FLW_NEWPAGE    241

@Outline3@<:#240,9360>define FLW_ORGCHART    5202

@Outline3@<:#240,9360>define FLW_OUTLINER    230

@Outline3@<:#240,9360>define FLW_PAGESORTER    229

@Outline3@<:#240,9360>define FLW_PASTE        144

@Outline3@<:#240,9360>define FLW_REMOVEPAGE    242

@Outline3@<:#240,9360>define FLW_SCREENSHOWRUN    481

@Outline3@<:#240,9360>define FLW_SELECTNONE    166

@Outline3@<:#240,9360>define FLW_SELECTALL    165

@Outline3@<:#240,9360>define FLW_SPEAKERNOTES    253

@Outline2@<:#240,9360>'api defines

@Outline3@<:#240,9360>Define GW_CHILD        5

@Outline3@<:#240,9360>Define GW_HWNDNEXT    2

@Outline3@<:#240,9360>define PM_NOREMOVE    0x0000

@Outline3@<:#240,9360>Define WM_SETREDRAW            0x000B

@Outline3@<:#240,9360>define NO_DUPS    0

@Outline3@<:#240,9360>define SWP_NOMOVE        0x0002

@Outline3@<:#240,9360>define WM_COMMAND    0x0111

@Outline3@<:#240,9360>define WM_GETTEXT           0x000D

@Outline3@<:#240,9360>define MF_BYPOSITION    0x0400

@Function@<:#284,9360>function FLWbits()

@Outline2@<:#240,9360>onerror endit

@Outline2@<:#240,9360>oncancel endit

@Outline2@<:#240,9360>if GetOpenFileCount()  << 1

@Outline2@<:#240,9360>    exit function

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>ignorekeyboard(2)

@Outline2@<:#240,9360>dim rect(4)

@Outline2@<:#240,9360>'hFLW = h_LoadLotusApp(appname, appmodule);

@Outline2@<:#240,9360>hFLW = h_RunningLotusApp(appname, appmodule);

@Outline2@<:#240,9360>if hFLW = 0

@Outline2@<:#240,9360>    return 0

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>rmac=GetRunningMacroFile$()

@Outline2@<:#240,9360>'get handles to everything

@Outline3@<:#240,9360>hwndpro = findwindow("amiprownda", 0)

@Outline3@<:#240,9360>'hwndFLW = findwindow("flwapp", 0)

@Outline3@<:#240,9360>if isiconic(hFLW)

@Outline3@<:#240,9360>    appmaximize(apptitle)

@Outline3@<:#240,9360>endif

@Outline2@<:#240,9360>'do global var stuff

@Outline3@<:#240,9360>allocglobalvar("bits", 1)

@Outline3@<:#240,9360>setglobalvar("bits", 0)

@Outline3@<:#240,9360>allocglobalvar("framecount", 1)

@Outline3@<:#240,9360>setglobalvar("framecount", 0)

@Outline2@<:#240,9360>activateapp(apptitle)

@Outline2@<:#240,9360>appmaximize(apptitle)

@Outline2@<+@><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_INBW, "")

@Outline2@<+@><:#240,9360>pause(002)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_PAGESORTER, "")

@Outline2@<+@><:#240,9360>pause(002)

@Outline2@<:#240,9360>showwindow(hflw, 5)

@Outline2@<:#240,9360>showwindow(hwndpro, 0)

@Outline2@<:#240,9360>type ("<[>esc]<[>esc]<[>esc]")

@Outline2@<:#240,9360>newnow()

@Outline2@<:#240,9360>rmac = getrunningmacrofile$()

@Outline2@<:#240,9360>setdlgcallback(0, "{rmac}!initdlg")

@Outline2@<:#240,9360>setdlgcallback(71, "{rmac}!insertdata")

@Outline2@<:#240,9360>dialogbox(".", "box1")

@Outline2@<+@><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_INCOLOR, "")

@Outline2@<:#240,9360>DlgKeyInterrupt(VK_F1, "{rmac}!helper")

@Outline2@<:#240,9360>box = dialogbox(".", "box2")

@Outline2@<:#240,9360>if box = 1

@Outline2@<:#240,9360>    showwindow(hwndpro, 5)

@Outline2@<:#240,9360>else

@Outline2@<:#240,9360>    showwindow(hwndpro, 5)

@Outline2@<:#240,9360>    activateapp(apptitle)

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>freeglobals()

@Outline2@<:#240,9360>return 1

@Outline2@<:#240,9360>endit:

@Outline2@<:#240,9360>showwindow(hwndpro, 5)

@Outline2@<:#240,9360>activateapp(apptitle)

@Outline2@<:#240,9360>end function

@Function@<:#284,9360>function freeglobals()

@Outline2@<:#240,9360>freeglobalvar("framecount")

@Outline2@<:#240,9360>freeglobalvar("bits")

@Outline2@<:#240,9360>end function

@Function@<:#284,9360>function initdlg(hdlg, id, value)

@Outline2@<:#240,9360>dim rect(4)

@Outline2@<:#240,9360>GetWindowRect(hdlg, &rect)

@Outline2@<:#240,9360>x = rect(1)

@Outline2@<:#240,9360>y = rect(2)

@Outline2@<:#240,9360>cx = rect(3) - x

@Outline2@<:#240,9360>cy = rect(4) - y

@Outline2@<:#240,9360>setwindowpos(hdlg, -1, x, y, cx, cy, 0)

@Outline2@<:#240,9360>end function

@Function@<:#284,9360>function insertdata(hdlg, id, val)

@Outline2@<:#240,9360>activateapp(apptitle)

@Outline2@<:#240,9360>hwndflw = findwindow(appclass, 0)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hwndFLW, WM_COMMAND, FLW_PAGESORTER, "")

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>pause(002)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>result=AppSendMessage(hwndflw, WM_COMMAND, FLW_COPY, "")

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>pause(002)

@Outline2@<:#240,9360>activateapp("")

@Outline2@<:#240,9360>if IsOKToRun(pastespecial) != 1

@Outline2@<:#240,9360>    msgbox(err_selectonlyoneslide)

@Outline2@<:#240,9360>    return 0

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>if getmode() <<<;> 1

@Outline2@<:#240,9360>    layoutmode()

@Outline2@<:#240,9360>    if getmode() <<<;> 1

@Outline2@<:#240,9360>        return 0

@Outline2@<:#240,9360>    endif

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>count = getglobalvar$("framecount")

@Outline2@<:#240,9360>count = count + 1

@Outline2@<:#240,9360>if count = 6

@Outline2@<:#240,9360>    PageBreak(1  )

@Outline2@<:#240,9360>    count = 1

@Outline2@<:#240,9360>endif

@Outline2@<+@><:#240,9360>'message("here")

@Outline2@<:#240,9360>setglobalvar("framecount", count)

@Outline2@<:#240,9360>'paste()

@Outline2@<:#240,9360>If IsOKToRun(PasteSpecial) != 1

@Outline2@<:#240,9360>    msgbox(err_maybenotinslidesorter)

@Outline2@<:#240,9360>    return 0

@Outline2@<:#240,9360>Endif

@Outline2@<:#240,9360>pastespecial(pasteformat)

@Outline2@<:#240,9360>modframe()

@Outline2@<:#240,9360>type("<[>esc]")

@Outline2@<:#240,9360>endit:

@Outline2@<:#240,9360>activateapp(apptitle)

@Outline2@<:#240,9360>END FUNCTION

@Function@<:#284,9360>function h_LoadLotusApp(name, module)

@Outline2@<:#240,9360>onerror endit

@Outline2@<:#240,9360>oncancel endit

@Outline2@<:#240,9360>hwnd =  findwindow(appclass, 0)

@Outline2@<:#240,9360>if hwnd = 0

@Outline2@<:#240,9360>    app = GetProfileString$(LotusAppSection, name, LotusIniFile)

@Outline2@<:#240,9360>    if app <<<;> ""

@Outline2@<:#240,9360>        offset1stspace=strchr(1, app, " ")

@Outline2@<:#240,9360>        app = strfield$(app, 1, " ")

@Outline2@<:#240,9360>        lotusappname=MID$(app, offset1stspace, len(app))    'DEZ

@Outline2@<:#240,9360>        'lotusappname = strfield$(app, 2, " ")

@Outline2@<:#240,9360>        if exec(app, "/q") << 32

@Outline2@<:#240,9360>            'MsgBox(err_cantlaunchapp)

@Outline2@<:#240,9360>            call salesmsgsmm(3)

@Outline2@<:#240,9360>            return 0

@Outline2@<:#240,9360>        endif

@Outline2@<:#240,9360>        pause(004)

@Outline2@<:#240,9360>    endif

@Outline2@<:#240,9360>    hwnd = findwindow(appclass, 0)

@Outline2@<:#240,9360>    if hwnd = 0

@Outline2@<:#240,9360>        call salesmsgsmm(3)

@Outline2@<:#240,9360>    endif

@Outline2@<:#240,9360>    return hwnd

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>endit:

@Outline2@<:#240,9360>return hwnd

@Outline2@<:#240,9360>end function

@Function@<:I0,360,360,360><:S+-1><:#284,9360>function h_RunningLotusApp(name, module)

@Outline2@<:#240,9360>onerror endit

@Outline2@<:#240,9360>oncancel endit

@Outline2@<:#240,9360>hwnd =  findwindow(appclass, 0)

@Outline2@<:#240,9360>if hwnd = 0

@Outline2@<:#240,9360>    MsgBox(err_appmustberunning)

@Outline2@<:#240,9360>    app = GetProfileString$(LotusAppSection, name, LotusIniFile)

@Outline2@<:#240,9360>    if app = ""

@Outline2@<:#240,9360>        call salesmsgsmm(3)

@Outline2@<:#240,9360>    endif

@Outline2@<:#240,9360>    return 0

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>isitopen=onmenu(FLW_WINDOWMENU, FLW_TILEITEM, 0)

@Outline2@<:#240,9360>if isitopen != FILE_ALREADYOPEN

@Outline2@<:#240,9360>    MsgBox(err_nofilesopen)

@Outline2@<:#240,9360>    return 0

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>endit:

@Outline2@<:#240,9360>return hwnd

@Outline2@<:#240,9360>end function

@Function@<:I0,360,360,360><:S+-1><:#284,9360>function helper()

@Outline2@<:#240,9360>prohWnd = FindWindow("AmiProWndA", 0)

@Outline2@<:#240,9360>fullhelpfile = strcat$(GetAmiDirectory$(), helpfile)

@Outline2@<:#240,9360>WinHelp (prohWnd, fullhelpfile, HELP_CONTEXT, helpnum)

@Outline2@<:#240,9360>end function

@Function@<:#284,9360>DIALOG    box1

<:#240,9360>-2134376448    9    170    210    185    38    ""    ""    "Collect & Copy"

<:#240,9360>FONT    8    "Helv"

<:#240,9360>118    3    63    14    71    1342373889    "button"    "&Copy to Ami Pro"    0

<:#240,9360>118    19    63    14    2    1342373888    "button"    "Done"    0

<:#240,9360>10    2    87    10    1000    1342177280    "static"    "Select the slide you want"    0

<:#240,9360>10    9    95    10    1001    1342177280    "static"    "to include in your document."    0

<:#240,9360>10    18    81    10    1002    1342177280    "static"    "Choose Copy to Ami Pro."    0

<:#240,9360>10    27    103    10    1003    1342177280    "static"    "Repeat these steps if desired."    0

<:#240,9360>2    2    6    10    1004    1342177280    "static"    "1."    0

<:#240,9360>2    18    6    10    1005    1342177280    "static"    "2."    0

<:#240,9360>2    27    6    10    1006    1342177280    "static"    "3."    0

<:#240,9360>END DIALOG

<:#240,9360>

<:#240,9360>

@Function@<:#284,9360>DIALOG    box2

<:#240,9360>-2134376448    9    90    50    200    67    ""    "AmiDialog"    "Collect & Copy"

<:#240,9360>FONT    8    "Helv"

<:#240,9360>126    3    68    14    1    1342373889    "button"    "&Switch to Ami Pro"    0

<:#240,9360>126    19    68    14    2    1342373888    "button"    "Done"    0

<:#480,9360>3    2    117    10    1000    1342177280    "static"    "You have selected some data to be"    0

<:#480,9360>3    10    117    10    1007    1342177280    "static"    "included in an Ami Pro document."    0

<:#240,9360>3    18    117    10    1008    1342177280    "static"    ""    0

<:#240,9360>3    26    117    10    1009    1342177280    "static"    ""    0

<:#480,9360>3    38    117    10    1010    1342177280    "static"    "You may now continue to work in"    0

<:#480,9360>3    46    117    10    1011    1342177280    "static"    "Freelance, or you may switch to Ami Pro"    0

<:#480,9360>3    54    117    10    1012    1342177280    "static"    "to arrange or format your document."    0

<:#240,9360>END DIALOG

<:#240,9360>

@Function@<:#284,9360>FUNCTION newnow()

@Outline3@<:#240,9360>'defstyle=getprofilestring$("AmiPro", "defstyle", "AMIPRO.INI")

<:#240,9360>'New(defstyle  1 1024  )

<:#240,9360>fullpageview()

<:#240,9360>setpagelayout()

<:#240,9360>END FUNCTION

<:#240,9360>

<:#240,9360>

@Function@<:#284,9360>FUNCTION modframe()

<:#240,9360>count = getglobalvar$("framecount")

<:#240,9360>defstr width, length, left, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units;

<:#240,9360>getcurframeborders(&width, &length, &top, &leftx, &leftmarg, &topmarg, &rightmarg, &bottommarg, &units)

<:#240,9360>top = count * 1.60 * 1440

<:#240,9360>GraphicsScaling(2 100 1 "1.80"  "1.34"  0  )

<:#240,9360>FrameModInit( )

<:#240,9360>FrameModLines(1 2 1 12763842 16777215 12763842 0 0 57 57  )

<:#240,9360>FrameModType(536936640 0 ""   )

<:#240,9360>FrameModBorders(2664 2001 4608 1440 0 0 0 0 1  )

<:#240,9360>FrameModBorders(2666, 2000, top, leftx, leftmarg, topmarg, rightmarg, bottommarg, units)

<:#240,9360>FrameModFinish( )

<:#240,9360>END FUNCTION

@Function@<:#284,9360>function setpagelayout()

@Outline2@<:#240,9360>ModLayoutInit(512  )

@Outline2@<:#480,9360>'ModLayoutRightPage(1440 1440 1440 1440 1 0 1 1440 10465 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640  )

@Outline2@<:#240,9360>'ModLayoutRightLines(0 1 0 1 2  )

@Outline2@<:#240,9360>country = GetProfileString$("intl", "sCountry")

@Outline2@<:#240,9360>if country <<<;> "United States" and country <<<;> "Canada"

@Outline2@<:#240,9360>    ModLayoutPageSize(16833 11908 1 4  ) ' A4

@Outline2@<:#240,9360>else

@Outline2@<:#240,9360>    ModLayoutPageSize(15840 12240 1 1  ) ' Letter

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>'ModLayoutRightHeader(1440 792 1440 72 1 0 1 1440 10465 2 2 4680 3 9360  )

@Outline2@<:#240,9360>'ModLayoutRightFooter(1440 72 1440 792 1 0 1 1440 10465 2 2 4680 3 9360  )

@Outline2@<:#240,9360>ModLayoutFinish( )

@Outline2@<:#240,9360>END FUNCTION

@Function@<:#284,9360>function onmenu(menu, item, casc)

@Outline2@<:#240,9360>isthistheone=0

@Outline2@<:#240,9360>defstr menuitemnum;

@Outline2@<:#240,9360>defstr cascmenuitemnum;

@Outline2@<:#240,9360>hwnd=findwindow(appclass, 0)

@Outline2@<:#240,9360>hmenubar=GetMenu(hwnd)

@Outline2@<:#240,9360>'get handle to menu

@Outline3@<:#240,9360>nummenus=getmenuitemcount(hmenubar)

@Outline3@<:#240,9360>if nummenus << 1

@Outline3@<:#240,9360>    msgbox(err_cantfindmenubar)

@Outline3@<:#240,9360>    goto out

@Outline3@<:#240,9360>endif

@Outline3@<:#240,9360>for i = 0 to nummenus - 1

@Outline3@<:#240,9360>    GetMenuString(hmenubar, i, &isthistheone,  25, MF_BYPOSITION)

@Outline3@<:#240,9360>    menulen=len(menu)

@Outline3@<:#240,9360>    if ucase$(left$(isthistheone, menulen)) = ucase$(left$(menu, menulen))

@Outline3@<:#240,9360>        menunum=i

@Outline3@<:#240,9360>    endif

@Outline3@<:#240,9360>next

@Outline3@<:#240,9360>hmenu=getsubmenu(hmenubar, menunum)

@Outline2@<:#240,9360>'get position or handle of item

@Outline3@<:#240,9360>'get position of item

@Outline4@<:#240,9360>    extra = 0

@Outline4@<:#240,9360>    menuitemnum = 0

@Outline4@<:#240,9360>    cascmenuitemnum = 0

@Outline4@<:#240,9360>    nummenuitems=getmenuitemcount(hmenu)

@Outline4@<:#240,9360>    if nummenuitems << 1

@Outline4@<:#240,9360>        msgbox(err_cantfindmenu)

@Outline4@<:#240,9360>        goto out

@Outline4@<:#240,9360>    endif

@Outline4@<:#240,9360>    for i= 0 to (nummenuitems - 1)

@Outline4@<:#240,9360>        GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9360>        itemlen=len(item)

@Outline4@<:#240,9360>        length=len(isthistheone)

@Outline4@<:#240,9360>        if length << 1 and menuitemnum = 0

@Outline4@<:#240,9360>            extra=extra + 1

@Outline4@<:#240,9360>        endif

@Outline4@<:#240,9360>        text=ucase$(isthistheone)

@Outline4@<:#240,9360>        pattern=ucase$(item)

@Outline4@<:#240,9360>        'if ucase$(left$(item, itemlen)) = ucase$(left$(isthistheone, itemlen))

@Outline4@<:#240,9360>        if Instr(1, Text, Pattern) != 0

@Outline4@<:#240,9360>            return FILE_ALREADYOPEN

@Outline4@<:#240,9360>            menuitemnum=i

@Outline4@<:#240,9360>            break

@Outline4@<:#240,9360>        endif

@Outline4@<:#240,9360>    next

@Outline4@<:#240,9360>    'couldn't find it

@Outline4@<:#240,9360>    return FILE_NOTOPEN

@Outline4@<:#240,9360>    menuitemnum=menuitemnum - extra

@Outline3@<:#240,9360>'get handle to casc menu

@Outline4@<:#240,9360>numcascmenus=getmenuitemcount(hmenu)

@Outline4@<:#240,9360>if numcascmenus << 1

@Outline4@<:#240,9360>    goto out

@Outline4@<:#240,9360>endif

@Outline4@<:#240,9360>for i = 0 to numcascmenus - 1

@Outline4@<:#240,9360>    GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9360>    cascmenulen=len(item)

@Outline4@<:#240,9360>    if ucase$(left$(isthistheone, cascmenulen)) = ucase$(left$(item, cascmenulen))

@Outline4@<:#240,9360>        cascmenunum=i

@Outline4@<:#240,9360>    endif

@Outline4@<:#240,9360>next

@Outline4@<:#240,9360>hcascmenu=getsubmenu(hmenu, cascmenunum)

@Outline3@<:#240,9360>'get position of casc item

@Outline4@<:#240,9360>    extra = 0

@Outline4@<:#240,9360>    numcascmenuitems=getmenuitemcount(hcascmenu)

@Outline4@<:#240,9360>    if numcascmenuitems << 1

@Outline4@<:#240,9360>        goto out

@Outline4@<:#240,9360>    endif

@Outline4@<:#240,9360>    for i= 0 to (numcascmenuitems - 1)

@Outline4@<:#240,9360>        GetMenuString(hcascmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9360>        cascitemlen=len(casc)

@Outline4@<:#240,9360>        length=len(isthistheone)

@Outline4@<:#240,9360>        if length << 1 and cascmenuitemnum = 0

@Outline4@<:#240,9360>            extra=extra + 1

@Outline4@<:#240,9360>        endif

@Outline4@<:#240,9360>        if ucase$(left$(casc, cascitemlen)) = ucase$(left$(isthistheone, cascitemlen))

@Outline4@<:#240,9360>            cascmenuitemnum=i

@Outline4@<:#240,9360>            break

@Outline4@<:#240,9360>        endif

@Outline4@<:#240,9360>    next

@Outline4@<:#240,9360>    cascmenuitemnum=cascmenuitemnum - extra

@Outline2@<:#240,9360>'return numbers

@Outline3@<:#240,9360>out:

@Outline3@<:#240,9360>getdist=strcat$(menuitemnum, ", ", cascmenuitemnum, ",",  casc)

@Outline3@<:#240,9360>hourglass(0)

@Outline2@<:#240,9360>end function<:>

>

[Embedded]
00026575
>
[macsum] 13
FLWbits 0 0 6 104
freeglobals 1127 0 1 158
initdlg 1189 3 6 162
insertdata 1424 3 4 171
h_LoadLotusApp 2176 2 5 208
h_RunningLotusApp 2724 2 4 235
helper 3254 0 3 255
box1 3421 0 -1 260
box2 4020 0 -1 275
newnow 4692 0 1 289
modframe 4742 0 12 297
setpagelayout 5097 0 2 310
onmenu 5317 3 24 324
[macse]
14 FLWbits
20 00001051
19 00001051
0 1050
13
5 1
18 5
11 00000086
6 0
15
9
0 32 2
5 4
21 1 [X]
16 h_RunningLotusApp "FLW" "FLWMAIN"
13
8 2
6 2
5 0
18 0
11 00000197
5 0
15
9
0 802
13
8 3
0 284 "user,FindWindow,HCC" "amiprownda" 0
13
8 4
0 284 "user,IsIconic,HH" "{2}"
13
11 00000344
0 1029 "Freelance Graphics"
0 271 "bits" 1
0 264 "bits" 0
0 271 "framecount" 1
0 264 "framecount" 0
0 38 "Freelance Graphics"
0 1029 "Freelance Graphics"
0 284 "User,PostMessage,HHHHJ" "{2}" 273 269 ""
0 274 002
0 284 "User,PostMessage,HHHHJ" "{2}" 273 229 ""
0 274 002
0 284 "user,ShowWindow,HHH" "{2}" 5
0 284 "user,ShowWindow,HHH" "{4}" 0
0 6 "[27][27][27]"
16 newnow
0 802
13
8 3
0 41 0 "{3}!initdlg"
0 41 71 "{3}!insertdata"
0 26 "." "box1"
0 284 "User,PostMessage,HHHHJ" "{2}" 273 270 ""
0 47 112 "{3}!helper"
0 26 "." "box2"
13
8 5
6 5
5 1
18 0
11 00000959
0 284 "user,ShowWindow,HHH" "{4}" 5
10 00001023
0 284 "user,ShowWindow,HHH" "{4}" 5
0 38 "Freelance Graphics"
16 freeglobals
5 1
15
9
0 284 "user,ShowWindow,HHH" "{4}" 5
0 38 "Freelance Graphics"
6 0
15
9
14 freeglobals
0 266 "framecount"
0 266 "bits"
6 0
15
9
14 initdlg
5 4
21 4 [X]
0 284 "user,GetWindowRect,HHN" "{0}" &4
5 1
22 4
8 5
5 2
22 4
8 6
5 3
22 4
6 5
3 1
8 7
5 4
22 4
6 6
3 1
8 8
0 284 "user,SetWindowPos,HHHHHHHI" "{0}" -1 "{5}" "{6}" "{7}" "{8}" 0
6 3
15
9
14 insertdata
0 38 "Freelance Graphics"
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 4
0 284 "User,PostMessage,HHHHJ" "{4}" 273 229 ""
0 274 002
0 1036 "{4}" 273 142 ""
13
8 5
0 274 002
0 38 ""
0 1313 217 24 588
13
5 1
18 1
11 00000326
0 3 "Please select a single slide." "Ami Pro Collect & Copy"
5 0
15
9
0 29
13
5 1
18 1
11 00000415
2 210 1
0 29
13
5 1
18 1
11 00000415
5 0
15
9
0 265 "framecount"
13
8 6
6 6
5 1
3 0
8 6
6 6
5 6
18 0
11 00000514
2 357 1 1
5 1
8 6
0 264 "framecount" "{6}"
0 1313 217 24 588
13
5 1
18 1
11 00000660
0 3 "Cannot paste from this view." "Ami Pro Collect & Copy"
5 0
15
9
2 588 1 "Windows Metafile"
16 modframe
0 6 "[27]"
0 38 "Freelance Graphics"
6 3
15
9
14 h_LoadLotusApp
20 00000524
19 00000524
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
6 3
5 0
18 0
11 00000524
0 286 "Lotus Applications" "{0}" "lotus.ini"
13
8 4
6 4
7 ""
18 1
11 00000406
0 13 1 "{4}" " "
13
8 5
0 20 "{4}" 1 " "
13
8 4
0 14 "{4}"
13
0 15 "{4}" "{5}" [X]
13
8 6
0 22 "{4}" "/q"
13
5 32
18 5
11 00000395
16 lotuspal.smm!salesmsg 3
5 0
15
9
0 274 004
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
6 3
5 0
18 0
11 00000512
16 lotuspal.smm!salesmsg 3
6 3
15
9
6 3
15
9
6 2
15
9
14 h_RunningLotusApp
20 00000506
19 00000506
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
6 3
5 0
18 0
11 00000334
0 3 "Freelance must be running to use Collect and Copy." "Ami Pro Collect & Copy"
0 286 "Lotus Applications" "{0}" "lotus.ini"
13
8 4
6 4
7 ""
18 0
11 00000322
16 lotuspal.smm!salesmsg 3
5 0
15
9
16 onmenu "&Window" "&Tile" 0
13
8 5
6 5
5 1
18 1
11 00000506
0 3 "You must have a presentation open to use Collect and Copy." "Ami Pro Collect & Copy"
5 0
15
9
6 3
15
9
6 2
15
9
14 helper
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HELPPACK.HLP"
13
8 2
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 110
6 0
15
9
DIALOG box1
-2134376448 9 170 210 185 38 "" "" "Collect & Copy"
FONT 8 "Helv"
118 3 63 14 71 1342373889 "button" "&Copy to Ami Pro" 0
118 19 63 14 2 1342373888 "button" "Done" 0
10 2 87 10 1000 1342177280 "static" "Select the slide you want" 0
10 9 95 10 1001 1342177280 "static" "to include in your document." 0
10 18 81 10 1002 1342177280 "static" "Choose Copy to Ami Pro." 0
10 27 103 10 1003 1342177280 "static" "Repeat these steps if desired." 0
2 2 6 10 1004 1342177280 "static" "1." 0
2 18 6 10 1005 1342177280 "static" "2." 0
2 27 6 10 1006 1342177280 "static" "3." 0
DIALOG box2
-2134376448 9 90 50 200 67 "" "AmiDialog" "Collect & Copy"
FONT 8 "Helv"
126 3 68 14 1 1342373889 "button" "&Switch to Ami Pro" 0
126 19 68 14 2 1342373888 "button" "Done" 0
3 2 117 10 1000 1342177280 "static" "You have selected some data to be" 0
3 10 117 10 1007 1342177280 "static" "included in an Ami Pro document." 0
3 18 117 10 1008 1342177280 "static" "" 0
3 26 117 10 1009 1342177280 "static" "" 0
3 38 117 10 1010 1342177280 "static" "You may now continue to work in" 0
3 46 117 10 1011 1342177280 "static" "Freelance, or you may switch to Ami Pro" 0
3 54 117 10 1012 1342177280 "static" "to arrange or format your document." 0
14 newnow
2 201 1
16 setpagelayout
6 0
15
9
14 modframe
0 265 "framecount"
13
8 1
0 795 &2 &3 &5 &6 &7 &8 &9 &10 &11
6 1
5 1.60
4 0
5 1440
4 0
8 5
2 403 1 2 100 1 "1.80" "1.34" 0
2 421 1
2 416 1 1 2 1 12763842 16777215 12763842 0 0 57 57
2 417 1 536936640 0 ""
2 418 1 2664 2001 4608 1440 0 0 0 0 1
2 418 1 2666 2000 "{5}" "{6}" "{7}" "{8}" "{9}" "{10}" "{11}"
2 420 1
6 0
15
9
14 setpagelayout
2 361 1 512
0 286 "intl" "sCountry"
13
8 1
6 1
7 "United States"
18 1
6 1
7 "Canada"
18 1
1 1
11 00000174
2 362 1 16833 11908 1 4
10 00000199
2 362 1 15840 12240 1 1
2 376 1
6 0
15
9
14 onmenu
5 0
8 4
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 7
0 284 "user,GetMenu,HH" "{7}"
13
8 8
0 284 "user,GetMenuItemCount,HH" "{8}"
13
8 9
6 9
5 1
18 5
11 00000261
0 3 "Cannot locate the menu bar." "Ami Pro Collect & Copy"
10 00002241
5 0
8 10
6 9
5 1
3 1
6 10
18 2
12 00000360
10 00000561
5 1
6 10
3 0
8 10
10 00000272
0 284 "user,GetMenuString,HHHFHH" "{8}" "{10}" &4 25 1024
0 14 "{0}"
13
8 11
0 806 "{4}" "{11}"
13
0 18 [X]
13
0 806 "{0}" "{11}"
13
0 18 [X]
13
18 0
11 00000548
6 10
8 12
10 00000325
0 284 "user,GetSubMenu,HHH" "{8}" "{12}"
13
8 13
5 0
8 14
5 0
8 5
5 0
8 6
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 15
6 15
5 1
18 5
11 00000802
0 3 "Cannot locate the correct menu." "Ami Pro Collect & Copy"
10 00002241
5 0
8 10
6 15
5 1
3 1
6 10
18 2
12 00000902
10 00001223
5 1
6 10
3 0
8 10
10 00000813
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
0 14 "{1}"
13
8 16
0 14 "{4}"
13
8 17
6 17
5 1
18 5
6 5
5 0
18 0
1 1
11 00001079
6 14
5 1
3 0
8 14
0 18 "{4}"
13
8 18
0 18 "{1}"
13
8 19
0 808 1 "{18}" "{19}"
13
5 0
18 1
11 00001210
5 1
15
9
6 10
8 5
10 00001223
10 00000867
5 -1
15
9
6 5
6 14
3 1
8 5
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 20
6 20
5 1
18 5
11 00001351
10 00002241
5 0
8 10
6 20
5 1
3 1
6 10
18 2
12 00001451
10 00001653
5 1
6 10
3 0
8 10
10 00001362
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
0 14 "{1}"
13
8 21
0 806 "{4}" "{21}"
13
0 18 [X]
13
0 806 "{1}" "{21}"
13
0 18 [X]
13
18 0
11 00001640
6 10
8 22
10 00001416
0 284 "user,GetSubMenu,HHH" "{13}" "{22}"
13
8 23
5 0
8 14
0 284 "user,GetMenuItemCount,HH" "{23}"
13
8 24
6 24
5 1
18 5
11 00001811
10 00002241
5 0
8 10
6 24
5 1
3 1
6 10
18 2
12 00001911
10 00002220
5 1
6 10
3 0
8 10
10 00001822
0 284 "user,GetMenuString,HHHFHH" "{23}" "{10}" &4 25 1024
0 14 "{2}"
13
8 25
0 14 "{4}"
13
8 17
6 17
5 1
18 5
6 6
5 0
18 0
1 1
11 00002088
6 14
5 1
3 0
8 14
0 806 "{2}" "{25}"
13
0 18 [X]
13
0 806 "{4}" "{25}"
13
0 18 [X]
13
18 0
11 00002207
6 10
8 6
10 00002220
10 00001876
6 6
6 14
3 1
8 6
0 16 "{5}" ", " "{6}" "," "{2}"
13
8 26
0 296 0
6 3
15
9
00026600